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Abstract 

s 

Alfa  is  a  functional  programming  language  used  in  the  context  of  Programmatics,  a 
programming  environment  in  which  one  can  apply  rewriting  rules  and  in  which  one  can 
express  equivalence  of  functional  expressions  Alta  provides  strong  typing,  information 
hiding,  suitable  infix  notations,  overloading  and  modularization.  The  examples  are 
presented  without  an  explanation  ol  the  Alfa  language^Petailed.  though  partly  obsolete, 
information  is  found  in  the  documents  "Notes  on  Progranrh^atics"  Part  I  and  Part  II. 
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1  Calendar. 

The  goal  of  the  example  is  a  program  that  finds  the  weekday  of  a  given  date  within  the  period  1900 
through  2099. 

module  CALENDAR  :  = 

weekday  :=  (SUN.  MON,  TUE.  WED.  THU.  FRI,  SAT) 

month  :=  (JAN,  FEB.  MAR,  APR,  MAY,  JUN,  JUL,  AUG,  SEP,  OCT,  NOV,  DEC) 

day  :=  nat  for  id  €  (1  ..  31) 

year  :=  nat  for  id  €  (1900 ..  2099) 

date  :  =  (year,  month,  day) 

Weekdayof  :  date  -*  weekday  :  = 

weekday  #  (((id  +  id%4)  0  (first  —  Base  0  flail)  +  Map  °  ftail  +  last)  %  7) 

where 

Map  :  month  -»  int  :=  (1  4  3  6  1  4  6  2  5  0  3  5)  #  (month  ?  id) 

Base  :  month  -»  year  :=  id  =  JAN  or  id  =  FEB  =>  1901  ;  1900 

end  CALENDAR 


seq  #  n  returns  the  n,h  element  of  "seq".  This  function  corresponds  to  array  indexing: 

''seq[n]”. 

seq?elem  returns  the  index  of  the  leftmost  occurrence  of  "elem"  in  "seq”.  (For  new 

domains,  it  corresponds  to  the  functions  "POS"  in  Ada  and  "ord"  in  Pascal.) 

n  %  p  is  the  remainder  of  the  integer  division  of  integer  n  by  natural  p. 
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2  Vectors. 


An  example  of  a  generic  module. 

module  VECS(obj)  :  = 

vec  :  =  (obj . . ) 

Binop  :  =  (obj,  obj)  -*  obj 


Vecop  !  Binop  :  (vec,  vec)  -»  vec  :  = 


eql  0  alen  =»  alD  6  //  ;  Error 


end  VECS 


An  example  of  the  use  of  generic  module  "VECS" 


module  REALVECS  :  ■ 


use  REALS,  VECS(real) 

"  +  "  :  (vec,  vec)  -»  vec 

:  (vec,  vec)  — >  vec 


Vecop  !  REALS."  ♦  " 
Vecop  !  REALS. . 


end  REALVECS 


seq  //  seq 


represents  the  function  "transpose" 


r 

» 
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3  Local  Names. 

An  example  of  the  problems  that  may  arise  from  the  use  of  local  names. 

Problem  Statement. 

Determine  the  multiplicity  of  the  (value  of  the)  first  element  of  a  non  empty  sequence  of  integer 
numbers. 

First  Solution. 

Compare  the  first  element  with  each  element  of  the  input  sequence  and  count  the  number  of  times 
you  find  equality. 

Program  1 . 

Firstmultcount :  (int . . )  -»  nat  :  =  +  °  a(first  =  id  =>  1  ;  0) 

The  functional  "a”  is  what  is  called  MAPCAR  in  Lisp.  Thus,  the  equality  comparison  with  the  first 
element  is  applied  to  all  elements  of  the  input  sequence  and  each  element  is  mapped  into  1  or  0 
depending  on  the  outcome  TRUE  or  FALSE.  The  final  result  is  obtained  by  adding  all  elements  of  the 
sequence  of  zeros  and  ones.  Addition  is  a  dyadic  function  of  a  special  class  of  functions  whose 
output  type  is  the  same  as  that  of  the  first  element  of  the  input  sequence.  These  functions  are 
extensible  to  non  empty  sequences  of  arbitrary  length.  I  envisage  that  the  extension  of  such  a  dyadic 
function  is  automatically  derived  from  the  original  dyadic  definition  by  the  language  system  so  that 
there  is  no  need  for  an  explicit  functional  "REDUCE"  as  represented  in  APL  by  the  symbol  The 
extended  function  is  left  associative  so  that  the  extension  of  dyadic  functions  such  as  subtraction, 
division  or  remainder  have  the  desired  result  for  input  sequences  of  more  than  two  elements. 

Now  we  introduce  a  local  name  for  the  first  element  and  rewrite  the  program. 

Program  2. 

Firstmultcount :  (int . . )  nat  :  = 
let  u  .  =  first  in  +  0  o(u  =  id  =>  1  ;  0) 

This  program  works  the  same  way  as  the  first  program  with  the  slight  difference  that  the  first 
element  is  remembered  in  the  local  object  named  ”u”. 


anh  5  November  1981 


Alfa  Examples 


page  4 


Second  Solution. 

Distribute  the  first  element  over  all  elements  of  the  input  sequence,  forming  a  sequence  of  pairs 
(first,  y)  where  y  is  one  of  the  elements  of  the  input  sequence  Count  the  number  of  equal  pairs  in  this 
sequence  of  pairs. 

Program  3. 

Firstmultcount :  (int . . )  -»  nat  :  =  +  °  a(eql  =»  1  ;  0)  6  (first  *>  id) 

The  symbol  "*>"  represents  distribution  from  left  to  right  The  program  distributes  the  first  element, 
applies  the  equality  test  to  every  pair  and  adds  the  number  of  resulting  ones  and  2eros. 

Program  4. 

Firstmultcount .  (int . . )  — »  nat  :  = 
let  u  :  =  first  in  +  0  a(eql  =»  1  ;  0)  °  (u  •>  id) 

This  program  works  basically  the  same  as  the  third  program. 

The  question  is  whether  or  not  there  is  much  difference  between  the  first  two  programs  and  the  last 
two  programs.  Before  turning  to  the  discussion  on  the  next  page,  you  should  form  your  opinion  about 
the  four  programs  on  this  page. 
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Discussion. 

Do  you  believe  that  all  four  programs  are  correct? 

If  you  do.  you  must  have  another  way  of  attaching  meaning  to  functional  programs  than  I  do.  In  my 
opinion,  Program  3  is  correct,  but  Program  1  is  incorrect.  The  problem  with  Program  1  is  the 
application  of  the  function 
(first  =  id  =>  1  ;  0) 

to  each  individual  element  of  the  input  sequence  It  is  alright  to  apply  function  "id"  to  an  integer 
number  (that  is  what  the  elements  of  the  input  sequence  are),  but  it  is  not  alright  to  apply  function 
"first"  to  an  integer  number.  This  function  is  defined  for  non  empty  sequences,  but  not  for  atomic 
objects.  Of  course,  we  meant  to  apply  function  "first"  only  once  to  the  input  sequence  and  then  use 
the  result  for  comparison  with  the  elements  of  the  input  sequence.  But  that  is  not  what  we  get.  With 
the  implementation  of  Program  1,  function  "first"  is  indeed  applied  to  every  individual  element  of  the 
input  sequence  which  causes  the  erroneous  application  of  function  "first"  to  an  atomic  object.  It  is 
clear  that  a  similar  error  does  not  occur  in  Program  3.  because  there  function  "first"  is  applied  exactly 
once  to  the  entire  input  sequence. 

There  is  no  problem  in  interpreting  Program  4.  because  the  local  object  ”u”  is  used  only  once. 
However,  what  about  Program  2?  I  can  see  two  possible  interpretations:  one  that  makes  the  program 
correct  and  another  that  makes  the  program  incorrect.  The  first  interpretation  considers  "u"  to  be  a 
local  constant  that  is  computed  only  once  (if  needed)  per  execution  of  function  "Firstmultcount".  If 
you  accept  this  interpretation,  Program  2  is  correct,  because  each  element  is  now  compared  to  a 
constant. 

The  second  interpretation  considers  "u"  to  represent  the  expression  on  the  righthand  side  of  the 
definition  symbol  If  you  accept  that  interpretation,  you  agree  that  the  program  is  incorrect, 

because  it  now  has  the  same  flaw  as  Program  1. 
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Note  that  the  problem  is  not  a  matter  of  lazy  evaluation,  but  one  of  interpreting  the  definition  of  the 
local  object.  The  two  different  interpretations  correspond  in  fact  to  the  Algol  concepts  of  "call-by- 
value”  and  "call-by-name”. 

I  am  not  suggesting  that  one  interpretation  is  better  than  the  other.  I  also  don’t  care  much  which 
interpretation  is  more  commonly  used  than  the  other.  The  point  I  am  trying  to  make  is  that  the 
problem  of  being  forced  to  choose  and  explain  the  semantics  arises  because  of  the  introduction  of 
local  names  No  explanation  would  be  necessary  if  the  concept  of  local  names  is  not  introduced  at  all. 
That,  in  my  opnion.  reduces  the  complexity  of  a  language  and  avoids  the  likely  occurrence  of 
misunderstanding  among  programmers.  You  may  have  a  trivial  solution  to  the  problem,  or  you  may 
want  to  convince  me  that  the  added  complexity  is  a  price  well  worth  to  pay.  I  am  listening. 
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I.  Alfa  Grammar. 

Program  — *  Modulesequence 

Module  — >  module  Ident  {(Generictypelist)}  :  = 

{use  Modnamelist} 

Declsequence 
(where  Auxdeclsequence} 
end  Modname 

Generictype  — *  Ident 

Decl,  Auxdecl  -»  Domaindecl  |  Classdecl  |  Funded  J  Formdecl 

Domaindecl  — *  Ident :  =  NewDomaindef  |  Ident :  =  Domaindef  {for  Predicate} 

NewDomaindef  — *  (Identlist) 

Domaindef  — »  {atom}  Domain  • 

Domain  — »  Generictypename  |  Domainname  |  (Domainlist  {-{•}}) 

Classdecl  -»  Ident  :=  Classdef  {for  Predicate} 

Classdef  -»  Domain  -» Domain 

Class  — *  Classname  |  Classdef 

Funded  -♦  Ident :  Class :  =  Expr 

Formdecl  -»  Ident !  Param  :  Class :  =  Expr 

Param  — »  Domain  |  Class  |  (Paramlist  {.{.}}) 

Expr  — »  Dyad  {  =»  Expr ;  Expr) 

Dyad  — »  Term  {Funsym  Term} 

Term  -»  Factor  {<>  Factor}* 

Factor  — »  {Funal}*  Primary  {  I  Primary}*  |  Formname !  Factor 

Primary  — ♦  Funname  |  Funsym  |  Const  |  (Exprlist) 

Funal  —»  a  |  /S  |  y 

Funsym  — »  +  —  */%@A’$t&~|?<<  =  *>> 

<»€//<**>  c  o  n  U  || 


Shorthands  are  used  for  strings  and  ranges  E  g.,  "functional",  (2  . .  17) 
The  functionals  a.  fl  and  y  stand  for  "all",  "filter"  and  "combine"  resp 
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II.  Standard  Functions. 


Monadic  Functions 


Name 

Specification 

Operation 

Identity 

Nil  test 

Is  atom 

Is  set 

Const  function 

id  :  x  -*  x 
null :  x  — *  bool 
atom  :  x  -*  bool 
$  :  z  -»  bool 
const :  x  — *  const 

maps  object  into  itself 

TRUE  iff  input  is  the  empty  seq 

TRUE  iff  input  is  an  atom 

TRUE  iff  multiplicity  of  every  elem  of  input  seq  is  one 
returns  that  const  on  the  domain  of  x 

First  element 
Second  element 
Tail  end 

Head  part 

Last  element 

fst :  s  — >  x 
snd  :  (x  y  .  . )  y 
tl :  s  -»  z 
hd  :  s  -*  z 

1st :  s  -*  x 

returns  the  first  element  of  non  empty  seq  s 

input  must  have  at  least  two  elems:  returns  second  elem 

all  but  the  first  element  of  non  empty  seq  s 

all  but  the  last  element  of  non  empty  seq  s 

returns  the  last  element  of  non  empty  seq  s 

Length 

Make  seq 

Make  range 

Make  set 

Reverse 

len  :  z  — »  znat 

seq  :  x  -*  s 

run  :  nat  -*  s 

set :  z  -♦  z 

rev  :  z  — »  z 

returns  the  length  of  seq  z 

creates  sequence  with  input  as  single  element 

generate  range  1  . .  input 

reduce  multiplicity  of  elems  of  input  seq  to  one 

reverse  the  elements  of  input  seq  z 

Shift  left 

Shift  right 
Extremities 

Fold  seq 

Unfold  seq 

left :  z  — »  z 
right :  z— »  z 
edge  :  z  -»  z 
fold  :  z  -»  z 
unfold  :  z  -»  z 

move  first  elem  (if  any)  to  rear  of  input  seq  z 
move  last  elem  (if  any)  to  front  of  input  seq  z 
form  pair  of  first  and  last  elem  if  input  seq  non  empty 
seq  formed  by  repeatedly  pealing  off  edges  until  empty 
remove  all  inner  parentheses  if  input  seq  non  empty 
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Dyadic  Functions 


Name 

Representation 

Operation 

Push  elem 
Append  elem 
Join  seqs 

Distr.  left 

Distr.  right 

X  »  2— *  S 

z  «  x  — »  s 

Z&Z-*  z 

(y  )<*  X— *  ((y,  x)  . ) 
x  *>(y  )-»  ((x,  y)  . ) 

add  x  as  first  elem  to  seq  z 

add  x  as  last  elem  to  seq  z 

concat  seqs,  preserving  the  order  of  the  elems 

distribute  x  over  all  elems  (if  any)  of  seq  z 

distribute  x  over  all  elems  (if  any)  of  seq  z 

Select 

Collection 

Replicate 

Rotate 

Index 

s  ft  nat  -»  x 
s  ft  (nat . )  — >  z 
nat  ft  x  — ►  (x  . . ) 
z  @  int  -»  z 
s  ?  x  -*  znat 

select  elem  s[nat]  from  non  empty  seq  s 
form  seq  of  selected  elems  s[nat] 
form  seq  by  replicating  x  nat  times 
rotate  input  over  int  elem  positions 

0  if  x  is  hot  in  seq  s,  else  index  of  leftmost  x  in  seq  s 

Equality 

Transpose 

Remainder 

Split  seq 
Partition 

x  =  y  — »  bool 

(x  . )  //  (y  . )  — ♦  ((x.y) . 

.  z  %  (x  . . )  -»  z 
z/(x..)-  Z 
z  ||  nat  -»  z 

TRUE  iff  equal  atoms  or  both  nil  or  corresp  elems  equal 
)  form  seq  of  pairs  of  corresponding  elems 
remove  all  occurrences  of  elems  x  (if  any)  from  input  seq  z 
split  input  seq  z  every  time  you  find  one  of  the  elems  x 
partition  input  seq  into  slices  of  length  nat 

Union 

Intersection 
Remove  elem 
Insert  elem 
Insert  elem 

z  U  z  — *  z 

z  n z-*  z 

z—  X-*  z 

x  +> z— *  s 
z  <  +  x  *  s 

form  the  union  of  the  input  sets 
form  the  intersection  of  the  input  sets 
if  x  is  in  set  z,  remove  it  from  set  z 
if  x  is  not  in  set  z,  add  x  as  first  elem  of  set  z 
if  x  is  not  in  set  z.  add  x  as  last  elem  of  set  z 

Member 

Subset 

Include 


x  €  s  -»  bool 
zcz->  bool 
ZDZ-*  bool 


TRUE  iff  x  is  an  elem  of  set  s 

TRUE  iff  first  set  is  a  subset  of  second  set 

TRUE  iff  first  set  includes  second  set 
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